home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs05.d81 / freemem.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  36 lines
  1. 100 PRINT"[147]":POKE56,157:CLR
  2. 110 PRINTSPC(11);"FREE MEMORY LOADER"
  3. 120 PRINTSPC(14);"PLEASE  WAIT":PRINTSPC(11);
  4. 130 LN=1000:AD=40200
  5. 140 READ LN$:IF LN$="Z" THEN 230
  6. 150 CK=0:FOR I=1 TO LEN(LN$) STEP 2
  7. 160 A=ASC(MID$(LN$,I,1))-48:IF A>9 THEN A=A-7
  8. 170 A=A*16:B=ASC(MID$(LN$,I+1,1))-48:IF B>9 THEN B=B-7
  9. 180 A=A+B:CK=CK+A:IFCK>255THENCK=CK-256
  10. 190 POKEAD,A:AD=AD+1
  11. 200 NEXTI:READA:IFA=CKTHEN220
  12. 210 PRINT:PRINT"CHECKSUM ERROR IN";LN;A;CK:END
  13. 220 LN=LN+10:PRINT".";:GOTO140
  14. 230 PRINT"":PRINTSPC(18);"DONE":FORI=1TO2000:NEXT
  15. 240 SYS 40200
  16. 250 REM START OF FREE MEMORY DATA
  17. 260 DATA AD02038DE59DAD03038DE69DAD08038DE29DAD09038DE39DA98E8D, 210 
  18. 270 DATA 0203A99D8D0303A9878D0803A99D8D0903A9FD8D0003A99D8D0103, 146 
  19. 280 DATA A93A85FDA9A485FEA9DB85FBA99E85FCA000B1FD91FBE6FBD002E6, 116 
  20. 290 DATA FCE6FDA5FDC974D0EEA9F385FDA99D85FEB1FDF01191FBE6FBD002, 81 
  21. 300 DATA E6FCE6FDD002E6FE4C6A9DA99D85382044A660A9018DEA9DD007A9, 121 
  22. 310 DATA 008DEA9DF00AEEE99DADE99DC90AD03DA9008DE99D3820F0FF8EE8, 14 
  23. 320 DATA 9D8CE79DA020A2001820F0FFA95B20D2FF38A533E531AAA534E532, 235 
  24. 330 DATA 20CDBDA95D20D2FFA92020D2FFAEE89DACE79D1820F0FFADEA9DF0, 9 
  25. 340 DATA 034C00004C0000000000000000000000000000ADFD0348ADFC0348, 132 
  26. 350 DATA 60008A30034C359EADF19DF02AA000A9008DF19DADEF9D853DADF0, 141 
  27. 360 DATA 9D853EA93A913DADED9D853DADEE9D853EA93A913DA900853E4CBE, 44 
  28. 370 DATA 9E4C74A4A5398DEB9DA53A8DEC9DA9008DF19DA53ED0078A20D39E, 131 
  29. 380 DATA 4C329EA0008CF29DB13DC93AD046A53D8DED9DA53E8DEE9DA97191, 125 
  30. 390 DATA 3DE63DD002E63EB13DF01AC93AD0F2A977913DA53D8DEF9DA53E8D, 108 
  31. 400 DATA F09DA9018DF19D4CBA9EADED9D8DEF9DADEE9D8DF09DA9018DF19D, 93 
  32. 410 DATA 4CBA9EA9FE8DED9DA9038DEE9DE63DD002E63EC8C004D0F5A0004C, 124 
  33. 420 DATA 689E8A20D39EA90D20D2FFADEB9D8514ADEC9D85152013A64CBDA6, 238 
  34. 430 DATA 688DFC03688DFD030000, 233 
  35. 440 DATA "Z":REM *** END OF DATA ***
  36.